clean up getplaceholdervalue

This commit is contained in:
Jonathan Jenne 2020-07-30 10:29:33 +02:00
parent 33fa89bae9
commit b8cc39a7c7

View File

@ -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