'Hallo Christian...
 
'Hier ein kleines Lösungsbeispiel zur Abfrage der InputBox
'NG.: 17.02.03.do.
 
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case Is = 0: TestStrPtr
        Case Is = 1: Unload Me
    End Select
End Sub
 
Private Sub TestStrPtr()
    Dim Result As String
 
    Result = InputBox("Eingabe : ", "Test StrPtr...", "Testeingabe", 0, 0)
 
    If StrPtr(Result) = 0 Then
        Label1 = "Sie haben den <Abbrechen>-Schalter betätigt..."
    Else
        If Len(Result) = 0 Then
            Label1 = "Der <OK>-Schalter wurde betätigt, ohne das eine" & _
              "Eingabe gemacht wurde."
        Else
            Label1 = Result
        End If
    End If
End Sub
'MfG
'Frank