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 Try
End Sub End Sub
Function GetPlaceholderValue(InputValue As String, FileName As String, UserShortName As String) Function GetPlaceholderValue(InputValue As String, FileName As String, UserShortName As String) As String
Dim oResult = Nothing Dim oResult As String
Try Try
Select Case InputValue.ToString.ToUpper Select Case InputValue.ToString.ToUpper