Why do I get an error when I try this?

Code:
Private Sub Drive1_Change()
    Dim sDrive$
    
    Dir1.Path = Drive1.Drive ' error occurs here.
      sDrive = Drive1.Drive
    
    Label6.Caption = fn_EvalDriveType(sDrive) 

End Sub

Function fn_EvalDriveType(sDrive As String) As String
    
    Dim lD_Type as Variant, 
    lD_Type = GetDriveType(sDrive & Chr(0))
             
End Function
The error occurs when you select a network drive eg 'g: [\\MA000013\F]'.

Also, why does the MSDN in VS6 say that the GetDriveType call returns a string eg 'DRIVE_UNKNOWN'when the declare is a long? :Confused: