Algien q me ayude


 ocp = MsgBox ("aleatorio? ",36,".::Kvs::.")  
 
si le usuario marca q si quiero q en
genere ( o (.)(en modo randomize)
osea no todas las x seran iguales
a veces valdra : otras (.)

y si el usuario dice q no x = ":"

.WriteLine "12"&x&"3"&x&"45"&x&"678"&x&"9"&x&"0"




esta funcion regresa (.) o ( si les ayuda
a ayudarme

Código

 
Function odc()
Randomize
   ksv = Mid(01, Int(Rnd * 2) + 1, 1)
if ksv = 1 then 
odc = ":"
else
odc = "."
end if
end function 
 
 

Function Aleatoria() As String
Dim ret As Integer
 
ret = MsgBox("Dime si SI o NO", vbYesNo, "El titulo")
If ret = vbYes Then
    Randomize
    ret = Int(10 * Rnd) 'Random de 0 a 9
    If (ret Mod 2) = 0 Then 'si el random generó un numero par
        Aleatoria = ":"
    Else 'si es impar
        Aleatoria = "."
    End If
Else
    Aleatoria = ":"
End If
End Function