regex til at finde ud af om den indeholder andet end tal og punkt

Reg.Exp. "^[\d\.]+$" vil kun matche 0-9 og punktummer (min. 1 tegn, men rækkefølge m.v. er underordnet).

Kender desværre ikke til Reg.Exp. i VB...

Kan du ikke bare bruge IsNumeric()


Private Sub Command1_Click()
  If Not IsNumeric(Text1.Text) Then
    MsgBox "Du må ikke skrive bogstaver, kun tal!"
  End If
End Sub

sjh > Faldt selv over den funktion isnumberic, men hvad er Text1.Text, kan jeg bare skrive min strengs navn der?, fx mass_org

Det kan godt være det ikke lige der jeg har lavet en fejl, men kan ikke kører min kode. Jeg får følgende fejl:
Compile error:

Function call on left-hand side of assignment must return Variant or Object

Min kode:

Private Sub calculate_Click()
    'Definere de forskellige variabler.
    Dim mass_org As String
    Dim height_org As String
    Dim mass As Single
    Dim height As Single
    'Hvis en af felterne er tomme giv da fejl.
    If mass_org = "" Or height_org = "" Then
        MsgBox = "Du skal skrive din højde og vægt!"
    Else
        'Replace komma (,) med punktum (.).
        mass_org = Replace(mass_org, ",", ".")
        height_org = Replace(height_org, ",", ".")
        If Not IsNumeric(mass_org) = "false" And IsNumeric(height_org) = "false" Then
            MsgBox = "Du må kun skrive tal i felterne!"
        Else
            MsgBox = "Nu skal vi videre!"
      End If
    End If
End Sub

mass_org og height_org , hvad er det, du har defineret dem som string

Det to inputfelter fra mit userinterface altså 2 tekstbokse. Grunden til at de er string er at nogen folk skriver , i stedet for . så jeg ville senere have smidt deres værdier over i mass og height, som er single.

prøv at fjerne disse

Dim mass_org As String
Dim height_org As String

eller

Dim mass_org As Object
Dim height_org As Object

Så nu fik jeg det til at virke, men hvordan kan jeg få inuptet fra et tekst fejl ind i mass_org og height_org?

Private Sub calculate_Click()
    'Definere de forskellige variabler.
    Dim mass_org As String
    Dim height_org As String
    Dim mass As Single
    Dim height As Single
    'Hvis en af felterne er tomme giv da fejl.
    If mass_org = "" Or height_org = "" Then
        MsgBox "Du skal skrive din højde og vægt!"
    Else
        'Replace komma (,) med punktum (.).
        mass_org = Replace(mass_org, ",", ".")
        height_org = Replace(height_org, ",", ".")
        'Hvis en af tallene ikke kun er tal og punktum, giv da fejl.
        If Not IsNumeric(mass_org) = "false" And IsNumeric(height_org) = "false" Then
            MsgBox "Du må kun skrive tal i felterne!"
        'Ellers regner vi videre.
        Else
            MsgBox "Nu skal vi videre!"
      End If
    End If
End Sub

mass_org = text1.text

Har fået det hele til at virke, smider du svar?

et svar ;-))