ProcessModule - BaseAddress

 Dim YourAss As Process = Process.GetProcessesByName("")(0)
        Dim MyAss As IEnumerator
        MyAss = YourAss.Modules.GetEnumerator
        Do While MyAss.MoveNext
            Dim current As ProcessModule = DirectCast(MyAss.Current, ProcessModule)
            If current.ModuleName.IndexOf("csh") <> -1 Then
                Read.Text = current.BaseAddress
            Else
                If current.ModuleName.IndexOf("Csh") <> -1 Then
                    Read.Text = current.BaseAddress
                End If
            End If
        Loop