Dann setze doch den Text in Anführungsstriche. Entweder über ein benutzerdefiniertes Zellenformat (z. B. "@") oder im Makro:
strOut = strOut & """" & CStr(.Cells(z, i)) & """" & ";"