Mod-Test

[schauansi]

Option Explicit

Public Sub Test() 

'Das ist ein Test

Dim strTest As String

Dim iCnt As Integer

strTest="Test"

MsgBox "Hallo" 

For iCnt=1 to 5

  Debug.Print iCnt

Next

'Das war's

'Fuer's erste

'heute ...

'wegen

'dem

'scrollbalken-

'test

'etwas

'länger

End Sub