VBA：なぜ私のFORループで何も返されないのですか？

Question

の目標は、文字のをコンマの間に戻し、それぞれを別のコードで使用することです。誰かがこれを行うより最適な方法を知っているなら、私に知らせてください。

問題：

私は、文字列内のコンマの位置を見つけようとしています。

文字列：

Dim st As String 
st = "1642377,001642381,010301642379" 

私の試み：

For pos = 1 To Len(st) 

    If Mid(st, pos, 1) = "," Then 

     MsgBox ("Position of comma:" & pos) 

    End If 

Next 

現在返す：

コードは何も返しません。 If条件がtrueを返さない。

期待される結果：は

MsgBoxは、コンマの位置毎時間を示す、二回ポップアップする必要があります。

Answer 1

スプリット機能を使用します。 stとMe.Text585.Value：それは

Dim parts() As String, p As Variant 

parts = Split("1642377,001642381,010301642379", ",") 
For Each p In parts 
    Debug.Print p 
Next 

プリントあなたは2つの異なる値を使用している

1642377 
001642381 
010301642379 

---

文字列配列を返します。 2つの場所でstを使用することを意味しましたか？私がそうした場合、コードは機能し、位置8と18が返されます。