How to Line Break or new line in Text box

'Text3.MultiLine = True

Private Sub Command1_Click()
Dim a, b
a = Text1
b = Text2
'Text3 = a & vbNewLine & b
Text3 = a & vbCrLf & b


End Sub