Mensagem carregando em porcentagem..

Galera eu estou com este código de Loading da página, que aparece no status do navegado ie, mais quero que este loading apareça em uma div porque só o ie pode mostrar esta mensagem de loading no status..

Alguem poderia me ajudar a redirecionar este código para uma div??

Dim Bar, Line, SP
Bar = 0
Line = "|"
sP = 100

Function Window_onLoad()
Bar = 95
sP = 10
END Function

Function Count()
If Bar < 100 Then
Bar = Bar + 1
Window.Status = "Carregando Lucena..." & Bar & "%" & " " & String(Bar, Line)
setTimeout "Count()", SP
Else
Window.Status = "Lucena Carregado!!!"
Document.Body.Style.Display = ""
End If
End Function

Call Count()

Grato desde já!!