Dim Form(5) As Windows.Forms.Form
        Dim FrmDigit As Byte
        Dim FrmCount As Byte = 5
        Dim Auswahl As Byte
 
        For FrmDigit = 0 To FrmCount
            Form(FrmDigit) = New Windows.Forms.Form()
            Form(FrmDigit).Text = CStr(FrmDigit)
        Next
        Auswahl = CByte(InputBox("Wohin soll es denn gehen ?", "Frage"))
 
        If Auswahl < 5 Then
            Form(Auswahl).ShowDialog()
        Else
            Exit Sub
        End If