Vb6 如何创建多行输入框

我正在尝试在VB6中创建一个输入框，以便在提示中包含空格。我试着用MSGBOX做同样的事情，但它不允许我做VBCRLF。这是我想要做的

This company has more than 1 department.
For Accounting type 1
For Reasearch  type 2

---

此处为输入框，右侧为“确定”和“取消”

以下代码将显示多行提示字符串：

Dim ret As String
Dim prompt As String

prompt = "This company has more than 1 department." & vbCrLf & _
    "For Accounting type 1" & vbCrLf & _
    "For Reasearch  type 2"


ret = InputBox$(prompt)