Public Function Test(x As String) As String Dim Convert As Integer Dim Search01 As Integer Dim Search02 As Integer Dim Search03 As Integer Dim Search04 As Integer D