はじめまして。最近使い始めたのですが 
以下のようにパス名を任意で取得した後に 
text1.textで出力されるパス名の長さを取得したいのですが 
どうすればいいのかいまいちわかりません。 
どのようにすればいいのでしょうか？ 
 
Private Sub Dir1_Change()  
  File1.Path = Dir1.Path 
End Sub 
 
Private Sub Drive1_Change() 
  On Error GoTo errhandler 
  Dir1.Path = Drive1.Drive 
errhandler:   
     If Err.Number = 68 Then 
     MsgBox "フロッピーディスクをセットして下さいい"     
End If 
End Sub 
 
Private Sub File1_Click() 
 fname0 = Dir1.Path & "\" & File1.FileName 
 Text1.Text = fname0 
End Sub