Dim str1 As String = "Hallo"
Dim str2 As String = "Mit freundlichen Grüßen"
 
Dim strToReplace1 As String = "Hey"
Dim strToReplace2 As String = "Mit freundlichem Gruß"
 
 
Dim KomplettString As String = "Hey Du, Mit freundlichem Gruß"
 
        KomplettString = Replace(KomplettString, strToReplace1, str1)
        KomplettString = Replace(KomplettString, strToReplace2, str2)
        MsgBox(KomplettString)