'クォーテーションマークで囲まれたパス名からマークを取り除く
Private Declare Function PathUnquoteSpaces Lib "shlwapi.dll" Alias "PathUnquoteSpacesA" _
(ByVal pszPath As String) As Long
Private Sub Command1_Click()
Dim temp As String
temp = Me.Text1.Text & String(256, Chr(0)) 'フルパス名 & バッファ確保
Call PathUnquoteSpaces(temp) '除去
Me.Text2.Text = temp '結果表示
End Sub