Example:
Sub Main
Dim x As Long
Dim y As Integer
Dim z As single
Dim a As double
Dim s As String
Dim v As Variant ' This is the same as Dim x or Dim x as any
End Sub