Private Sub Command1_Click()
    Text2 = sText(Text1)
End Sub
 
Private Function sText(s As String) As String
    Dim l As Long
    l = Len(s) - 1
 
    If Left(s, 1) = Chr(34) Then s = Right(s, l)
 
    l = Len(s) - 1
 
    If Right(s, 1) = Chr(34) Then s = Left(s, l)
 
    sText = s
End Function