Imports System.Net.NetworkInformation

Public Class Form1

    Dim pingwsname As String

            string RegexMatchString = @"\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}";
            Regex testr = new Regex(RegexMatchString);
            MessageBox.Show(testr.Match(textBox1.Text).Value) ;

string RegexMatchString = @"(?<IP>\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})";
            Regex testr = new Regex(RegexMatchString);
            Match matx = testr.Match(textBox1.Text);
            MessageBox.Show(matx.Groups["IP"].Value);

        private void GetCookies()
        {
          string path = Environment.GetFolderPath(Environment.SpecialFolder.Cookies);
          DirectoryInfo CookiesDirectory = new DirectoryInfo(path);

            foreach (FileInfo filex in CookiesDirectory.GetFiles())

Sub saveas()
Dim MItem As Outlook.MailItem

 For Each ItemSelected In Application.ActiveExplorer.Selection
      
      If ItemSelected.Class = 43 Then
          Set MItem = ItemSelected
         MItem.saveas "c:\test.msg",

DataGridView1.DataSource = objDataSet.Tables("TodaysAbsentees")

  Dim queryString As String = "SELECT * FROM TodaysAbsentees Where AttendanceDate LIKE @todaysDate"