求用vb求双引号之间的子串。设计一个窗体，在窗体上添加两个标签框，两个文本框和两个命令按钮。

求双引号之间的子串。设计一个窗体，在窗体上添加两个标签框，两个文本框和两个命令按钮。运行程序时，首先在第一个文本框中输入一串字符（假定输入的字符串含有双引号），单击“计算”，将在第二个文本框中输出双引号之间的字符。若单击“结束”，结束程序运行

能不能用Vb完整的写出来- -

呵呵，要好好学习啊！
用方法2：
界面我就不贴了：
代码如下：
Option Explicit
'计算按钮
Private Sub Command1_Click()
Dim Ys As String
Dim Ns As String
Dim L As Integer
Dim i As Integer
Dim StartYesNo As Boolean
Dim EndYesNo As Boolean
StartYesNo = False
EndYesNo = False
Ys = Text1.Text
L = Len(Ys)
Ns = ""
For i = 1 To L
If Not StartYesNo Then
If Mid(Ys, i, 1) = """" Then
StartYesNo = True
End If
Else
If Not EndYesNo Then
If Mid(Ys, i, 1) """" Then
Ns = Ns & Mid(Ys, i, 1)
Else
Exit For
End If
End If
End If
Next i
Text2.Text = Ns
End Sub
'结束按钮
Private Sub Command2_Click()
End
End Sub