最近良くお世話になってます。
例えば
（ここから）→12124234908205gfsh04u gskl←（ここまで）が半角である、と判断してくれる関数はあるのでしょうか？出きれば（ここから）→ふぁいえるｆたそふぁ９９９←（ここまで）は、全角である、というのも教えていただければ幸いです。
よろしくお願いします。

そういう関数はないので自分で作りましょう。
Asc() をつかって256以上なら全角です

> そういう関数はないので自分で作りましょう。
> Asc() をつかって256以上なら全角です
ありがとうございました。
張り切って作ります。

> そういう関数はないので自分で作りましょう。
> Asc() をつかって256以上なら全角です

すみません、チョンボしてしまいました。訂正です！
0〜255までが半角でそれ以外は全角です。
つまり全角の場合、値がマイナスになることもあります。(-32,768 〜 32,767 )

> > そういう関数はないので自分で作りましょう。
> > Asc() をつかって256以上なら全角です
>
> すみません、チョンボしてしまいました。訂正です！
> 0〜255までが半角でそれ以外は全角です。
> つまり全角の場合、値がマイナスになることもあります。(-32,768 〜 32,767 )

細かい話なんで、まぁどうでもいいツッコミかもしれませんが、
Shift_JISの上位バイトになるものはどれも&H80(0x80)以上なので、
全角文字に対するAsc関数の結果は、必ず(Integerでの)負の数になると思います。

> （ここから）→12124234908205gfsh04u gskl←（ここまで）が
> 半角である、と判断してくれる関数はあるのでしょうか？出きれば
>（ここから）→ふぁいえるｆたそふぁ９９９←（ここまで）は、
> 全角である、というのも教えていただければ幸いです。

どちらも、「RegExp オブジェクト」で判定できますよ。

> どちらも、「RegExp オブジェクト」で判定できますよ。

Private Sub Command1_Click()
    Dim RegExp As Object
    Dim Match As Object
    Dim Source As String

    Source = Text1.Text

    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True    '文字列全体を検索対象にする
    RegExp.IgnoreCase = False   '大文字小文字を区別する
    RegExp.MultiLine = True '複数行にわたる文字列を扱う

    Debug.Print "===半角位置==="
    RegExp.Pattern = "[ -~]+"
    For Each Match In RegExp.Execute(Source)
        Debug.Print "開始位置:" & Match.FirstIndex; Tab(15);
        Debug.Print "終了位置:" & Match.FirstIndex + Match.Length - 1; Tab(30);
        Debug.Print "『"; Match.Value; "』"
    Next

    Debug.Print "===全角位置==="
    RegExp.Pattern = "[^ -~]+"
    For Each Match In RegExp.Execute(Source)
        Debug.Print "開始位置:" & Match.FirstIndex; Tab(15);
        Debug.Print "終了位置:" & Match.FirstIndex + Match.Length - 1; Tab(30);
        Debug.Print "『"; Match.Value; "』"
    Next

    Set RegExp = Nothing
End Sub