Here's a quickie that will convert Surveyor DMS to Acad Radians. The arguments you need to pass are:
Direction Quadrant in the form of an Integer, where NE = 1, SE = 2, SW = 3, and NW = 4
DD as a Double .... use the converter CDbl(txtbox.value)
MM as a Double ....ditto
SS as a Double ....ditto
Function NEWS2Rads(iDir As Integer, dd As Double, mm As Double, ss As Double) As Double
Dim decDeg As Double
decDeg = ss / 60#
decDeg = (mm + decDeg) / 60#
decDeg = dd + decDeg
Dim pi As Double
Dim radDeg As Double
pi = Atn(1) * 4
radDeg = pi * (decDeg / 180#)
Select Case iDir
Case Is = 1 'NorthEast
NEWS2Rads = (pi * 0.5) - radDeg
Case Is = 2 'SouthEast
NEWS2Rads = (pi * 1.5) + radDeg
Case Is = 3 'SouthWest
NEWS2Rads = (pi * 1.5) - radDeg
Case Else 'NorthWest
NEWS2Rads = (pi * 0.5) + radDeg
End Select
End Function