Option Explicit

Dim Startwinkel As String
Dim Box
Dim Startwinkel_MsgBox As String
Dim Eingabe As String

Private Sub CommandButton1_Click()
'Abfrage ob der Wert des Startwinkels weiter verarbeitet werden kann
    Startwinkel = IsNumeric(Me.ComboBox3.Value)
    If (Startwinkel = True) And (Me.ComboBox3.Value <= "360") And Not (Startwinkel = "") Then
        Startwinkel = Abs(Me.ComboBox3.Value)
        Me.ComboBox3.Value = Startwinkel
    ElseIf Me.ComboBox3.Value = "" Then
        Box = MsgBox("Eine leere Eingabe kann nicht verwendet werden.", vbCritical + vbOKOnly, "Falsche Eingabe")
        Do
            Eingabe = "Startwinkel"
            Eingabe = InputBox("Geben Sie den Startwinkel des ersten Buchstabens ein.", "Durchmesser der Elemente", Eingabe)
            Startwinkel_MsgBox = IsNumeric(Eingabe)
            If Eingabe = "" Then
                Box = MsgBox("Eine leere Eingabe kann nicht verwendet werden.", vbCritical + vbOKOnly, "Falsche Eingabe")
            ElseIf (Startwinkel_MsgBox = True) And (Eingabe >= "360") Then
                Box = MsgBox("Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." + Chr(13) + "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical + vbOKOnly, "Falsche Eingabe")
            ElseIf (Startwinkel_MsgBox = False) And (Eingabe <> "0") Then
                Box = MsgBox("Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbOKOnly + vbCritical, "Falsche Eingabe")
            End If
        Loop Until (Startwinkel_MsgBox = True) And (Eingabe <= "360") And Not (Eingabe = "")
        Startwinkel_MsgBox = Abs(Eingabe)
        Me.ComboBox3.Value = Startwinkel_MsgBox
    ElseIf (Startwinkel = True) And (Me.ComboBox3.Value >= "360") Then
        Box = MsgBox("Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." + Chr(13) + "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical + vbOKOnly, "Falsche Eingabe")
        Do
            Eingabe = "Startwinkel"
            Eingabe = InputBox("Geben Sie den Startwinkel des ersten Buchstabens ein.", "Durchmesser der Elemente", Eingabe)
            Startwinkel_MsgBox = IsNumeric(Eingabe)
            If Eingabe = "" Then
                Box = MsgBox("Eine leere Eingabe kann nicht verwendet werden.", vbCritical + vbOKOnly, "Falsche Eingabe")
            ElseIf (Startwinkel_MsgBox = True) And (Eingabe >= "360") Then
                Box = MsgBox("Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." + Chr(13) + "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical + vbOKOnly, "Falsche Eingabe")
            ElseIf (Startwinkel_MsgBox = False) And (Eingabe <> "0") Then
                Box = MsgBox("Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical + vbOKOnly, "Falsche Eingabe")
            End If
        Loop Until (Startwinkel_MsgBox = True) And (Eingabe <= "360") And Not (Eingabe = "")
        Startwinkel_MsgBox = Abs(Eingabe)
        Me.ComboBox3.Value = Startwinkel_MsgBox
    ElseIf (Startwinkel = False) And (Me.ComboBox3.Value <> "0") Then
        Box = MsgBox("Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical + vbOKOnly, "Fehler")
        Do
            Eingabe = "Startwinkel"
            Eingabe = InputBox("Geben Sie den Startwinkel des ersten Buchstabens ein.", "Durchmesser der Elemente", Eingabe)
            Startwinkel_MsgBox = IsNumeric(Eingabe)
            If Eingabe = "" Then
                Box = MsgBox("Eine leere Eingabe kann nicht verwendet werden.", vbCritical + vbOKOnly, "Falsche Eingabe")
            ElseIf (Startwinkel_MsgBox = True) And (Eingabe >= "360") Then
                Box = MsgBox("Der Startwinkel des ersten Buchstaben kann nicht größer als 360° sein." + Chr(13) + "Geben Sie einen Winkel zwischen 0° und 360° ein.", vbCritical + vbOKOnly, "Falsche Eingabe")
            ElseIf (Startwinkel_MsgBox = False) And (Eingabe <> "0") Then
                Box = MsgBox("Die Eingabe kann nicht verwendet werden, da es sich um keine Zahl handelt.", vbCritical + vbOKOnly, "Falsche Eingabe")
            End If
        Loop Until (Startwinkel_MsgBox = True) And (Eingabe <= "360") And Not (Eingabe = "")
        Startwinkel_MsgBox = Abs(Eingabe)
        Me.ComboBox3.Value = Startwinkel_MsgBox
    End If
    
'    If Me.ComboBox3.Value >= "360" Then
'        MsgBox ("größer")
'    ElseIf Me.ComboBox3.Value <= "360" Then
'        MsgBox ("kleiner")
'    End If
    
End Sub

Private Sub CommandButton2_Click()

    Unload Me

End Sub