Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='" & proceso & "'")
process.Terminate (0)
Next process

Text1.Text = vbNullString
End Sub

Option Explicit

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Function wSource(Web As String) As String
    Dim sBuffer As String * 256
    Dim iRet As Integer
    Dim lRet As Long
    Dim sData As String
    Dim hInternet As Long
    Dim hSession As Long
    
    hSession = InternetOpen("tatatata", 1, vbNullString, vbNullString, 0&)
    hInternet = InternetOpenUrl(hSession, Web, vbNullString, 0&, 0&, 0&)
    iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
    sData = sBuffer
    
    Do While lRet <> 0
        iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
        sData = sData & Mid(sBuffer, 1, lRet)
    Loop
    
    iRet = InternetCloseHandle(hInternet)
    wSource = sData
End Function

Private Sub Form_Load()
Text1.Text = wSource("http://www.google.co.ve")
End Sub

Imports System
Imports System.IO

Public Class Form1
    Dim inputfile As StreamReader
    Dim lines As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        inputfile = System.IO.File.OpenText("C:\test.txt")

        Do While inputfile.Peek <> -1
            lines = inputfile.ReadLine
            TextBox1.Text = Split(lines, ",")(0) 'Nombre
            TextBox2.Text = Split(lines, ",")(1) 'Apellido
            TextBox3.Text = Split(lines, ",")(2) 'Edad
        Loop
    End Sub
End Class

jose,moreno,15

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strNombre As String

        strNombre = "Juan,Moreno,15"

        MsgBox(Split(strNombre, ",")(1))
    End Sub
End Class