Private Sub Text1_Change()
　　If InStr(Text1.Text, vbCrLf) = 0 Then
　　　　Debug.Print ("Single line text !")
　　Else
　　　　Debug.Print ("Multi lines text !")

　　End If
End Sub

こんなの小学生時代の俺でも思いつくと思うわ。
っていうか、こんなのも分からない奴は根本的にPGとしての適正を欠いているとしか言いようがないよ