複数行の入力ボックスを作成する方法

Question

VB6で入力ボックスを作成しようとしていますが、ここでPROMPTにスペースを入れることができます。私はMSGBOXと同じことをしようとしましたが、私にVBCRLFをさせません。ここで私は

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

入力ここでボックスし、[OK]を行うと、次のコードは、複数行のプロンプト文字列を表示します右

Answer 1

にキャンセルしようとしてんだよ：

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)