clean up getplaceholdervalue

Global_Indexer/frmIndex.vb

@@ -1728,8 +1728,8 @@ Public Class frmIndex
         End Try
     End Sub
 
-    Function GetPlaceholderValue(InputValue As String, FileName As String, UserShortName As String)
-        Dim oResult = Nothing
+    Function GetPlaceholderValue(InputValue As String, FileName As String, UserShortName As String) As String
+        Dim oResult As String
 
         Try
             Select Case InputValue.ToString.ToUpper