VBA Ausgabe wird komischerweise als Text formatiert

[Luffffy]

Hey Leute,

ich lasse mir über eine Eingabemaske zwei Zahlenwerte in zwei verschiedene Zellen ausgeben.
Bei absoluten Zahlen ist auch alles super, aber wenn ich in die Eingabenmaske Werte mit Nachkommastellen eintrage, gibt er mir bei einem der beiden Eingabewerte an, dass das Feld als Text formartiert ist. Das Problem ist, dass ich dadurch die Zahl nicht zur Weiterberechnung anwenden kann.
Hier mal der entscheidende Part meiner Programmierung.

Code:

Private Sub CommandButton1_Click()

    Dim lowBorder As Double
    Dim hightBorder As Double
    
    lowBorder = TextBox1.Value
    highBorder = TextBox3.Value
         
    ActiveCell.Offset(0, 8).Value = lowBorder
    ActiveCell.Offset(0, 9).Value = highBorder
    Unload Me

End Sub

und hier noch einmal die TextBox Programmierung

Private Sub TextBox1_Change()
OnlyNumbers
If Not TextBox1.Value Like "" And Not TextBox3.Value Like "" Then
         Label6 = Calc100Percent(TextBox1.Value, TextBox3.Value)
End If

If TextBox1 Like "" Then
    Label6 = ""
End If

End Sub

Private Sub TextBox3_Change()
OnlyNumbers
If Not TextBox1.Value Like "" And Not TextBox3.Value Like "" Then
        Label6 = Calc100Percent(TextBox1.Value, TextBox3.Value)
End If

If TextBox3 Like "" Then
        Label6 = ""
End If

End Sub

Hoffentlich kann mir jemand helfen.
Danke schonmal im Voraus.

Beste Grüße

[Castor]

Du hast offensichtlich den VBE nicht auf automatisches Einfügen von Option Explicit am Modulanfang (Variablendeklaration erforderlich) eingestellt, Lu4fy,
sonst wäre dem VBE und dir ein verursachender Schreibfehler wohl aufgefallen. Außerdem gibt's evtl noch das Problem der unterschiedlichen Dezimaltrenner der Text(box)angabe (lokal deutsch) und dem von VBA erwarteten (englisch).
Übrigens ist es ziemlich sinnfrei, den VBA-Vergleichsoperator Like zu verwenden, um etwas mit einem Leer-String zu vergleichen.
Gruß, Castor

[Luffffy]

Hey Castor,

vielen Dank für die Antwort! Option Explicit hat mir den Fehler ausgegeben ::)
Danke dafür!