Use Long for ASC result

This commit is contained in:
Georgy Litvinov 2020-06-23 16:07:11 +02:00
parent 1ec3e9ad34
commit e607dd98de
3 changed files with 6 additions and 6 deletions

View file

@ -183,7 +183,7 @@ Function createDupName(initName As String, newDupNames As Variant )
End Function
Function getPrefixName(initName As String) As String
Dim num As Integer
Dim num As Long
Dim tmpName As String
tmpName = Trim(initName)
If tmpName = "" Then