ALTERAR NOME DO COMPUTADOR E FORMATO DE DATA

Uma api simples pra isto
 
inclua uma combo, um ComandButton e um Label, em seu projeto para fazer o teste
 
Option Explicit

Private Const LOCALE_SSHORTDATE = &H1F
Private Declare Function GetSystemDefaultLCID Lib [Ô]kernel32[Ô] () As Long
Private Declare Function SetLocaleInfo Lib [Ô]kernel32[Ô] Alias [Ô]SetLocaleInfoA[Ô] (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean

Private Sub Command1_Click()
  Dim lngLocale As Long
  lngLocale = GetSystemDefaultLCID()
  If SetLocaleInfo(lngLocale, LOCALE_SSHORTDATE, Combo1.Text) = False Then
    Label1.Caption = [Ô]Houve um erro ao definir o formato de data ![Ô]
  Else
    Label1.Caption = [Ô]Formato de data atualizado para [Ô] & Combo1.Text & [Ô] com sucesso ![Ô]
  End If
End Sub

Private Sub Form_Load()
  With Combo1
    .AddItem [Ô][Selecione um formato][Ô]
    .AddItem [Ô]MM/dd/yyyy[Ô]
    .AddItem [Ô]dd/MM/yyyy[Ô]
    .AddItem [Ô]MM-dd-yyyy[Ô]
    .AddItem [Ô]dd-MM-yyyy[Ô]
    .ListIndex = 0
  End With
  Label1.Caption = [Ô][Ô]
End Sub