VB6.0 WinXP

いつもお世話になっていますm(__)m

『"ABC DEF" "12453" "YYB 125"』の文字列を

『"ABC DEF"』
『"12453"』
『"YYB 125"』

のように分割したいのですが、良い方法ありませんか？
どうかご教授願います。

下記のようになればいいのでしょうか？
(ここのVB簡易リファレンス内のVB6.0 からの文字列関数を参照）

Option Explicit
Private Sub Command1_Click()
   Dim AddDat   As Variant
   Dim myString As String
   Dim i        As Long
   myString = """ABC DEF"" ""12453"" ""YYB 125"""
   AddDat = Split(myString, """")
   For i = LBound(AddDat) To UBound(AddDat)
      If Len(Trim(AddDat(i))) > 0 Then
         Debug.Print AddDat(i)
      End If
   Next i
End Sub

早速のご回答ありがとうございました。

無事、動作しましたm(__)m

またまたお世話になります。m(__)m

VB6.0 WinXP

今回は、
『"ABC DEF" 12453 "YYB 125" ADDF』の文字列を

『"ABC DEF"』
『"12453"』
『"YYB 125"』
『"ADDF"』

のように分割したいのですが、どうかご教授願います。

> またまたお世話になります。m(__)m
> 『"ABC DEF" 12453 "YYB 125" ADDF』の文字列を

．．．．途中は省略．．．．

> のように分割したいのですが、どうかご教授願います。

せっかく前回教えてもらったのですから、もう少しご自分で
考えたり、調べたり、試したりしたら如何なのでしょうか？

AddDat = Split(myString, """")　を一部修正して試して下さい。

希望の処理の一部が少し変わったらまた「どうかご教授願います。」と
繰り返し聞くのでしょうか？
それではプログラムの知識、技量は進歩が無いのでは．．．．。