请学哥学姐们帮助帮助我这个新手吧!
现在状况：
1、在窗体中有一个下拉菜单，内容为A-1_001和A-1_002，使用的语句为：
        lstplace.AddItem "A-1_001"
        lstplace.AddItem "A-1_002"
2、在窗体中有一个文本框。
3、在文本框下有一个command按钮

要求：在下拉菜单中先选中一项，如“A-1_002”，然后再在文本框中输入内容，如“A3_6.1”，点击按钮，在D盘上就生成一个“A-1_002----A3_6.1”的目录，并提示“生成目录成功”，如果在D盘上已经有了一个“A-1_002----A3_6.1”目录，则提示“已存在该目录”。
请学哥学姐们帮助帮助我这个新手吧!请给我套完整的代码吧！谢谢啦！！

现在假设你用的下拉列表名字为Combo1,文本框名字为Text1,按扭的名字为command1
在Command1_Click事件单击事件里写如下代码：

Private Sub Command1_Click()

If Dir("D:\" & Trim(Combo1.Text) &"----"& Trim(Text1.Text), vbDirectory) = "" Then
   
    MkDir "D:\" & Trim(Combo1.Text) & "----"& Trim(Text1.Text)
   
    MsgBox ("生成目录成功")
Else
    MsgBox ("已存在该目录")
End If

End Sub

谢谢啦！非常正确！非常感谢！