[VB.net]文字列を数値か判定し変換抽出！IntやString混在配列の入替についても

Dim inputString As String = "123"

If IsNumeric(inputString) Then
    ' 数値に変換可能な場合の処理
    Dim numericValue As Integer = CInt(inputString)
    Console.WriteLine("数値に変換成功：" & numericValue)
Else
    ' 数値に変換できない場合の処理
    Console.WriteLine("数値に変換できません")
End If

Imports System.Text.RegularExpressions

Module Program
    Sub Main()
        Dim input As String = "123"

        If Match(input) Then
            Dim number As Integer = Integer.Parse(input)
            Console.WriteLine("Parsed number: " & number)
        Else
            Console.WriteLine("Input is not a valid integer.")
        End If
    End Sub

    Function Match(input As String) As Boolean
        Return Regex.IsMatch(input, "^\d+$") ' 正規表現を使って文字列が数字のみで構成されているか確認
    End Function
End Module

Imports System

Module Program
    Sub Main()
        Dim stringArray() As String = {"123", "apple", "456", "orange", "789", "banana"}

        For Each item In stringArray
            Dim number As Integer
            If Integer.TryParse(item, number) Then
                Console.WriteLine("Number: " & number)
            End If
        Next
    End Sub
End Module

Imports System

Module Program
    Sub Main()
        Dim mixedArray() As Object = {1, "apple", 3, "orange", 5, "banana"}

        For Each item In mixedArray
            If IsNumeric(item) Then
                Dim number As Integer = Convert.ToInt32(item)
                Console.WriteLine("Number: " & number)
            End If
        Next
    End Sub
End Module