AW: Zum Anfang d.1.Vollwoche 2019: Rätselhaft
07.01.2019 01:15:30
Niclaus
Hallo Onur
Sub format()
vX = Split( _
"68, 101, 105, 110, 101, 32, 90, 101, 108, 108, 101, 32, 65, 49, 32, 104, 97, " & _
"116, 32, 109, 105, 114, 32, 102, 97, 115, 116, 32, 101, 105, 110, 101, 32, " & _
"115, 99, 104, 108, 97, 102, 108, 111, 115, 101, 32, 78, 97, 99,104, 116, 32, 13," & _
"98, 101, 115, 99, 104, 101, 114, 116, 44, 32, 98, 105, 115, 32, 105, 99, 104, " & _
"32, 101, 110, 100, 108, 105, 99, 104, 32, 119, 101, 105, 115, 115, 32, 103, 101, " & _
"115, 101, 104, 101, 110, 32, 104, 97, 98, 101, 46" _
, ",")
For i = 0 To UBound(vX): vX(i) = Chr(vX(i)): Next i: MsgBox Join(vX, "")
End Sub
Grüsse Niclaus