Crear archivo txt

Dim archivo As String = "archivo.txt" 
If Not File.Exists(archivo) Then
            Dim sr As New StreamWriter(archivo)
            sr.Close()
            sr.Dispose()
        End If