I am having issues trying to connect a single string into a correctly formatted account name.

Dim aaa As String = "FLACCT1717300000009"
aaa = aaa.Replace("FL", "FL-")
aaa = aaa.Replace("ACCT", "ACCT-")
aaa = aaa.ToString.Replace("00000", "-")
Debug.Print(aaa)

I am looking for account = FL-ACCT-171730-09
but its producing incorrectly = FL-ACCT-17173-009