When you get to that point, go to the Immediate Window and enter
?Asc(Mid(sName,28,1))
to see what the char is, and replace it with a space or something
This is what I got with * as the mystery character and the literal value for sName , but use sName instead
?asc(mid("20200907-115609-AYCA-6UJ77L*Woolworths",28,1))
42
?replace("20200907-115609-AYCA-6UJ77L*Woolworths",chr(42), " ")
20200907-115609-AYCA-6UJ77L Woolworths
Bit prettier
Option Explicit
Sub Frag()
Dim sName As String
sName = "20200907-115609-AYCA-6UJ77L*Woolworths"
MsgBox Asc(Mid(sName, 28, 1))
sName = Replace(sName, Chr(42), " ")
MsgBox sName
End Sub