Private Sub Form_Load()
  Dim a, b, c, d As Long
  MsgBox TypeName(a) & vbCr & TypeName(b) & vbCr & TypeName(c) & vbCr & _
    TypeName(d)
End Sub

Private Sub Form_Load()
  Dim a As Long, b As Long, c As Long, d As Long
  MsgBox TypeName(a) & vbCr & TypeName(b) & vbCr & TypeName(c) & vbCr & _
    TypeName(d)
End Sub

Gruss,

Zardoz