質問っす。
「テキストボックスに数値しか入力出来ないように制限する関数（改良型）」
をうまく利用して、ある変数の文字列内を数値制限をかける方法を教えてください。

(例)
a = "-0.005A・・・・" を　"-0.005"　に変換する方法

宜しくお願いします♪

あれは１文字づつチェックしているのでそのまま応用できますが。
複雑な処理をしている訳ではないので、順をおってよくご覧になれば
もっといいものが出来ると思います。

出来ました！が、ちょっとしょぼい物になってしまったようです。
スマートに作りかえれますでしょうか？（汗）

テキストボックス２個用意しました。


Option Explicit     'SampleNo=069　WindowsXP VB6.0(SP5) 2002.05.15

Private Const Hennsuu1 = "-0.005A"
Private Hennsuu2 As String

Private Function fTextBoxNumberCheck(ByRef MyTextBox As String) As String
    Dim i As Long

    '入力文字を１文字づつチェック
    For i = 1 To Len(MyTextBox)
        '最初の１文字目以外に−が入っていたら削除
        If Mid$(MyTextBox, i, 1) = Chr$(45) And i <> 1 Then
            fTextBoxNumberCheck = True
            '- を文字列から抜き取りテキストボックスに代入
            MyTextBox = Mid$(MyTextBox, 1, i - 1) & _
                    Mid$(MyTextBox, i + 1, Len(MyTextBox) - i)
            Beep
            'カーソル位置をテキストの末尾へ
            MyTextBox = Len(MyTextBox)
            
            Exit Function
        End If
        '0〜9 - . 及び　Enter Tab 等の制御文字以外を削除
        If Mid$(MyTextBox, i, 1) >= Chr$(32) And Mid$(MyTextBox, i, 1) _
                < Chr$(45) Or Mid$(MyTextBox, i, 1) _
                    > Chr$(57) Or Mid$(MyTextBox, i, 1) = Chr$(47) Then

            '以下上記同様の処理
            MyTextBox = Mid$(MyTextBox, 1, i - 1) & _
                    Mid$(MyTextBox, i + 1, Len(MyTextBox) - i)
            Beep
            Text2.Text = MyTextBox
            Exit Function
        End If
    Next i
    
End Function

Private Sub Form_Load()
    Text1.Text = Hennsuu1
End Sub

Private Sub Text2_Change()
    Dim Result As String
    Result = fTextBoxNumberCheck(Hennsuu1)
End Sub

> 出来ました！が、ちょっとしょぼい物になってしまったようです。
> スマートに作りかえれますでしょうか？（汗）
>
> テキストボックス２個用意しました。
>
>
> Option Explicit     'SampleNo=069　WindowsXP VB6.0(SP5) 2002.05.15
>
> Private Const Hennsuu1 = "-0.005A"
> Private Hennsuu2 As String
>
> Private Function fTextBoxNumberCheck(ByRef MyTextBox As String) As String
>     Dim i As Long
>
>     '入力文字を１文字づつチェック
>     For i = 1 To Len(MyTextBox)
>         '最初の１文字目以外に−が入っていたら削除
>         If Mid$(MyTextBox, i, 1) = Chr$(45) And i <> 1 Then
>             fTextBoxNumberCheck = True
>             '- を文字列から抜き取りテキストボックスに代入
>             MyTextBox = Mid$(MyTextBox, 1, i - 1) & _
>                     Mid$(MyTextBox, i + 1, Len(MyTextBox) - i)
>             Beep
>             'カーソル位置をテキストの末尾へ
>             MyTextBox = Len(MyTextBox)
>            
>             Exit Function
>         End If
>         '0〜9 - . 及び　Enter Tab 等の制御文字以外を削除
>         If Mid$(MyTextBox, i, 1) >= Chr$(32) And Mid$(MyTextBox, i, 1) _
>                 < Chr$(45) Or Mid$(MyTextBox, i, 1) _
>                     > Chr$(57) Or Mid$(MyTextBox, i, 1) = Chr$(47) Then
>
>             '以下上記同様の処理
>             MyTextBox = Mid$(MyTextBox, 1, i - 1) & _
>                     Mid$(MyTextBox, i + 1, Len(MyTextBox) - i)
>             Beep
>             Text2.Text = MyTextBox
>             Exit Function
>         End If
>     Next i
>    
> End Function
>
> Private Sub Form_Load()
>     Text1.Text = Hennsuu1
> End Sub
>
> Private Sub Text2_Change()
>     Dim Result As String
>     Result = fTextBoxNumberCheck(Hennsuu1)
> End Sub

すいません。２重投稿してしましました。

さきほど乗せた物はうまく、動きませんでした。
「・・・・・」を入れると、失敗でした。

花ちゃんさんの関数だとうまく動きます。差がわかりません。
教えてください。

参考までに
「数字以外が出現したらそれ以降は無視」でよければ
a = Val("-0.005A・・・・")

これを使います。a = Val("-0.005A・・・・")
ありがとうございました♪