Rather than copy all 70 lines of code you could do something like
Private Function DoIt(ByVal strDefault As String, ByVal strString As String , ByVal strSecond As String) As String
'Whatever code for the function goes here
End Function
Private Function DoIt(ByVal strDefault As String, ByVal strString As String) As String
DoIt(strDefault,strString,"")
end function
Private Function DoIt(ByVal strDefault As String) As String
DoIt(strDefault,"","")
End Function
(nicking dynamic_sysop's naming convention there ;)