Mod-Test

[schauansi]

Code:

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