Найти и заменить строку в текстовом файле, используя подстановочный знак с Excel VBA

Question

Проблема: я пытаюсь заменить пару ключ-значение в текстовом файле.Ключ остается неизменным, пока значение меняется.Я не хочу изменять какие-либо другие строки, кроме одной строки, которая начинается с имени ключа.

То, что у меня есть в настоящее время:

Sub REPLACESESSIONID()

Dim CONTENT, SESSIONID, WORKINGDIR As String

SESSIONID = "urn:uuid:A750ADE2355E6EAA2315397874423"

SESSION = FreeFile()

' ESTABLISH WORKING DIRECTORY
WORKINGDIR = Environ("AppData") & "\PROJECT"

' READ SESSION.TXT AND STORE AS VARIABLE
Open WORKINGDIR & "\SESSION.txt" For Input As #SESSION   ' Open file
    CONTENT = Input(LOF(SESSION), SESSION)
Close #SESSION

' REPLACE SESSIONID* WITH NEW SESSIONID
CONTENT = Replace(CONTENT, "SESSIONID*", "SESSIONID;" & SESSIONID)

' WRITE CHANGES TO SESSION.TXT
Open WORKINGDIR & "\SESSION.txt" For Output As #SESSION
    Print #SESSION, CONTENT
Close #SESSION

End Sub

Я знаю, что замена не позволяет использовать подстановочные знаки,но я не уверен, как действовать.

Содержимое SESSION.txt:

SESSIONID;urn:uuid:A7AGBDE25436EAA231532239423
ROLENAME;Local_Unix_Admin