Dim S1 As String = "NULL" Dim S2 As String = ChrW(0) 'もしくは = vbNullChar Dim S3 As String = Nothing Dim S4 As String = "" 'もしくは = String.Empty 'Dim S5 As String = その他
Dim newText As String = Replace( 元のテキスト, NULL文字, "")