在VS2013中，如何用VB创建txt文件

在VS2013中，如何用VB创建txt文件

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IO.File.Exists("c:123.txt") Then
            IO.File.CreateText("c:123.txt")
        Else
            IO.File.WriteAllText("c:123.txt", TextBox1.Text)
        End If
    End Sub

病情分析：
您好服用韭菜子治疗阳痿早泄是有一定疗效的，是可以使用铁锅进行炒制
指导意见：
然后根据医生的指导进行服用就可以了，最好是用黄酒送服效果更好，服药治疗期间应该忌房事及辛辣刺激的食物

病情分析：
您好，铁炒锅上火，烤干，放入韭菜籽，用小火慢慢炒至韭菜籽发黄，如果您买的是黑的，则要注意火候，要小火慢炒，炒至成熟即可，吃的时候研成面。
指导意见：
菜籽为激性剂，有固精、助阳、补肾、治带、暖腰膝等作用，适用于阳痿、遗精、多尿等疾患。用韭菜籽研粉，每天早晚各服15克，开水送服，对治疗阳痿有效。用韭菜根、煎汁内服，可治盗汗、自汗。祝您早日康复

铁炒锅上火，烤干，放入韭菜籽，用小火慢慢炒至韭菜籽发黄，如果您买的是黑的，则要注意火候，要小火慢炒，炒至成熟即可，吃的时候研成面。

然后根据医生的指导进行服用就可以了，最好是用黄酒送服效果更好，服药治疗期间应该忌房事及辛辣刺激的食物