[VBA] MsgBox επαναλαμβάνεται

[anestaki]

Καλησπέρα και καλή σαρακοστή.
Μου εμφανίζει το μήνυμα δυο φορές και δεν μπορώ να καταλάβω το γιατί !

Private Sub TextBox5_Change()
Φύλλο3.Range("j12") = TextBox5.Value
If Φύλλο3.Range("j12") = Φύλλο3.Range("j12").Text Then
TextBox5.Value = ""
Φύλλο3.Range("j12") = ""
MsgBox "Χρησιμοποιούμε την τέλια (.)ως στίξη για τον διαχωρισμό των δεκαδικών."
End If
End Sub

[Tasos]

Καλησπέρα!

Γιώργο δοκίμασε:

Option Explicit

Private Sub TextBox1_AfterUpdate()
    Dim CellValue As String
    If Trim(Me.TextBox1.Text) = vbNullString Then
        Range("A1").ClearContents
    Else
        CellValue = GetValidNumber(Trim(Me.TextBox1.Text))
        If CellValue <> "" Then
            TextBox1.Text = CellValue
            Range("A1").Value = CDbl(CellValue)
        Else
            MsgBox "H μορφή αριθμού στο πεδίο αυτό δεν είναι έγκυρη !"
            SendKeys "+{TAB}"
        End If
    End If
End Sub

Private Function GetValidNumber(strValue As String) As String
    If Application.DecimalSeparator = "," Then
        strValue = Replace(strValue, ".", ",")
    Else
        strValue = Replace(strValue, ",", ".")
    End If
    If IsNumeric(strValue) Then GetValidNumber = strValue
End Function

Τάσος

[anestaki]

Τάσο σε ευχαριστώ όπως πάντα σε αυτό το forum ζήτω ένα και περνώ δυο η περισσότερα.
Καληνύχτα Γιώργος.