Solved
I finally figured it out from other posts and trial and error.... I created a module and here is the code.
Module mdlDrive
Public Declare Function WNetGetConnection Lib "mpr.dll" Alias _
"WNetGetConnectionA" (ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, ByRef cbRemoteName As Integer) As Integer
Sub Main(ByVal sDriveLetter As String, ByRef sServerName As String)
Dim ret As Integer
Dim out As String = New String(" ", 260)
Dim len As Integer = 260
ret = WNetGetConnection(sDriveLetter, out, len)
sServerName = RTrim(out)
End Sub
End Module
The calling function from my form is mdlDrive.Main(sDriveLetter, sServerName)
Cheers!