[RESOLVED] Condense code...

[BrailleSchool]

Sorry, but second type is wrong:
! - Single

To find out more run ths sample:

Private Sub Command1_Click()
Dim var1%, var2&, var3#, var4!, var5@, var6$, var7, var8 As Object
 
    Debug.Print "var1: " & TypeName(var1)
    Debug.Print "var2: " & TypeName(var2)
    Debug.Print "var3: " & TypeName(var3)
    Debug.Print "var4: " & TypeName(var4)
    Debug.Print "var5: " & TypeName(var5)
    Debug.Print "var6: " & TypeName(var6)
    Debug.Print "var7: " & TypeName(var7)
    Debug.Print "var8: " & TypeName(var8)
 
End Sub

made a small app with this info so i dont forget. enclosed for all us young-timers lol