StrTxt = ": " & Left(StrTxt, InStrRev(StrTxt, "."))
StrTxt = ": " & Left(StrTxt, InStrRev(StrTxt, ".") - 1)