VBScript Eliminar espacios de la cadena

' The Replace function replaces a specified part of a string with another string a specified number of times.
txt="This is a beautiful day."
Replace(txt," ","",1,-1)

' Output: Thisisabeautifulday.
PvT_Shifty