One step further \:\)
Declare as type and assign at once.
For instance:

Dim $var As String = "New string"
DIm $Shell As Object = CreateObject("WScript.Shell")