VelVB = Val(Replace(Val1, ",", ".")) val("2.15")

Option Explicit
Dim Vihod As Boolean
Dim VelVB

Private Sub VerhniiB_Change()
        If Vihod Then Exit Sub
        QWERT VerhniiB, VelVB
End Sub

Sub QWERT(Kontr As TextBox, PEREM)
Dim Per1, KolS, Simvol, KolS1
    Dim Val1 As String
    Val1 = VerhniiB.Text
           Val1 = Replace(Val1, "d", "h")
           Val1 = Replace(Val1, "D", "h")
           Val1 = Replace(Val1, "e", "h")
           Val1 = Replace(Val1, "E", "h")
                 
    If Len(Val1) = 0 Then
        Per1 = ""
        PEREM = 0
        Exit Sub
    End If
        
    Val1 = Replace(Val1, ".", ",")
    Select Case True
        Case Val1 Like ",*": Val1 = "0" & Val1
        Case Val1 Like "*,": Val1 = Val1 & "0"
        End Select
            
        If IsNumeric(Val1) Then
            Per1 = VerhniiB.Text
            
                  KolS = Len(Per1)
                  Simvol = Mid(Per1, KolS, 1)
            Select Case Simvol
                Case "+": Per1 = Replace(Per1, Simvol, ""): VerhniiB.Text = Per1
                Case "-": Per1 = Replace(Per1, Simvol, ""): VerhniiB.Text = Per1
            End Select
                  
                  Simvol = Mid(Per1, 1, 1)
            Select Case Simvol
                Case "+", "-", ".", ",": Per1 = Replace(Per1, Simvol, ""): VerhniiB.Text = Per1
            End Select
        Else
            Vihod = True
            VerhniiB.Text = Per1
        End If
        Kontr.SelStart = Len(VerhniiB)
        If KolS1 <> KolS Then
            PEREM = Val(Replace(Val1, ",", "."))
        Else
            PEREM = Val(Replace(Val1, ",", ".")) 'val("2.15")
            VerhniiB.SelStart = Len(VerhniiB)
        End If
                 Vihod = False
                 KolS1 = KolS
        If Not IsNumeric(Val1) And IsNumeric(Replace(Per1, ".", ",")) Then PEREM = Replace(Per1, ".", ",")

End Sub

Kontr.SelStart = Len(VerhniiB)