Dim test As String
 
        For i = 1 To Len(Me.TxtSsendvalue1.Text)
            'test = Mid(Me.TxtSsendvalue1.Text, 1, Len(Me.TxtSsendvalue1.Text))
            test = Mid(Me.TxtSsendvalue1.Text, i)
            If test = Mid(test, i) = "." Then
                test = Replace(test, ".", ",")
                MsgBox("test=" & test)
 
            End If
 
            'test = Replace(test, ".", ",")
            'Me.TxtSsendvalue1.Text = CInt(test)
        Next i

hallo ich lerne gerade visual donet und m?chte gern an den Foren teilnehmen