テキストボックスの総行数・現在行・現在桁の取得 は逆引きヘルプであったので参考にさせせ手いただきました。

「総桁数」を表示させたいのですがどういう風に改造したらいいのですか？

桁は増えていくのですがウィンドウの端まできて次の行へいくとまた桁が１からはじまるので１からじゃなくて続けてカウントしてほしかったんです。たびたび本当にすみません(*- -)(*_ _)ペコリ

> 「総桁数」を表示させたいのですがどういう風に改造したらいいのですか？

総桁数と考えるから難しくなるのです。文字列の長さを調べればいいのですよ
ここのＶＢ簡易リファレンスの文字列関係を見て下さい。
ＶＢ簡易リファレンスに書いてある事位は一度目を通しておいて下さい。

目も通さずに質問してすみませんでした。
なんとかがんばってみます。
ありがとうございました。
m( _  _ )m

あれからねばってやってたらできました！ありがとうございました(>_<)
今回のことを通して自分が関数のことをさっぱりわかっていないことを思い知らされました。これからはあらかじめ調べて質問しますm( _  _ )m本当に失礼しました。

因みに現在位置までの文字数を求める場合は　Text1_KeyUp イベントに
下記のコードを追加して下さい。


    Dim PosLen As Long
    Dim myStr As String
    
    
    '現在位置の文字インデックスを取得
    PosCol = SendMessage(Text1.hwnd, EM_GETSEL, 0&, 0&)
    '下位ワードを求める（最初の文字インデックス）
    PosLen = PosCol And &HFFFF&
    '文字列を Unicode からコード ページに変換します
    myStr = StrConv(Text1.Text, vbFromUnicode)
    '先頭からの文字列を求める
    myStr = LeftB(myStr, PosLen)
    'その文字列の文字数を取得
    PosLen = Len(StrConv(myStr, vbUnicode))
    Label3.Caption = "現在文字数／総文字数＝" & PosLen & " / " & Len(Text1.Text)